Option Explicit

Sub Ȳ()

    Dim ǹĳ As PivotCache
    Dim ǹ As PivotTable
    Dim  As Range
    Dim ġ As Range
    Dim ̸ As String
    Dim Ӹ As Variant
    Dim i As Integer, j As Integer
    Dim  As Integer,  As Integer
    
    ̸ = "ǹ"
    
    Set  = Range("A2").CurrentRegion
    Ӹ = Array("", "ټӳ", "ɴ", "")
    
    Set ǹĳ = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
                                                   SourceData:=)
    
    On Error Resume Next
        Application.DisplayAlerts = False
            Worksheets(̸).Delete
        Application.DisplayAlerts = True
    On Error GoTo 0
    
    Worksheets.Add.Name = ̸
    
    For i = 1 To 4
    
         = Int((i - 1) / 2) * 10
         = ((i - 1) Mod 2) * 5

        Set ġ = Range("A3").Offset(, )

        With ġ.Offset(-1)
            .Value = " Ȳ (" & Ӹ(i - 1) & ")"
            .Font.Size = 14
            .Font.Bold = True
        End With
        
        Set ǹ = ǹĳ.CreatePivotTable(TableDestination:=ġ, _
                                             TableName:≠ & i)
    
    
        With ǹ
            
            .HasAutoFormat = False
        
            .AddFields RowFields:=Ӹ(i - 1)
            
            For j = 1 To 3
            
                .AddDataField Field:=.PivotFields("̸"), _
                              Function:=xlCount
                              
            Next j
            
            .PivotFields(" : ̸").Caption = "ο"
            
            With .PivotFields(" : ̸2")
                .Caption = ""
                .Calculation = xlPercentOfColumn
                .NumberFormat = "0.0%"
            End With
            
            With .PivotFields(" : ̸3")
                .Caption = ""
                .Calculation = xlRankDecending
                .BaseField = Ӹ(i - 1)
            End With
            
            With ġ
                .Offset(1).Value = Ӹ(i - 1)
                .Offset(, 1).Value = " "
            End With
            
            Select Case i
            
                Case 1
            
                    With .PivotFields("")
        
                        .PivotItems("").Position = 1
                        .PivotItems("").Position = 2
                        .PivotItems("븮").Position = 3
                        .PivotItems("").Position = 4
        
                    End With
                    
                Case 2
                
                    With .PivotFields("ټӳ")
        
                        .PivotItems("10 ̻").Position = 1
                        .PivotItems("6~9").Position = 2
                        .PivotItems("3~5").Position = 3
                        .PivotItems("3 ̸").Position = 4
        
                    End With
                
            End Select

            .TableStyle2 = "PivotStyleMedium" & i + 1
            .TableRange2.HorizontalAlignment = xlCenter
            
        End With
    
    Next i
    
    Columns("A:H").ColumnWidth = Columns("A:H").ColumnWidth * 1.2
    Cells.RowHeight = 20
    
End Sub